home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / copypages.pprx < prev    next >
Text File  |  1992-03-14  |  1KB  |  46 lines
  1. /*
  2. @BCopyPages  @P@ICopyright Gold Disk Inc., February, 1992
  3. Make any number of copies of a range of pages.
  4. */
  5. cr = '0a'x
  6. call SafeEndEdit.rexx()
  7. last = ppm_DocLastPage()
  8. first = ppm_DocFirstPage()
  9. cpage = ppm_CurrentPage()
  10. if cpage = 0 then exit_msg("Please create a page before running this Genie.")
  11.  
  12. form = "From:"first'0a'x"To:"last'0a'x"Num copies:"1
  13. form = ppm_GetForm("Enter Range Of Pages", 5, form)
  14. if form = '' then call exit_msg()
  15. parse var form from '0a'x topage '0a'x numcopies
  16.  
  17. if ~(datatype(from, n) & datatype(topage, n) & datatype(numcopies, n)) then
  18.     exit_msg('Invalid Input')
  19.  
  20. if from < first | from > last | topage < first | topage > last then
  21.     exit_msg('Invalid Input')
  22.  
  23. call ppm_AutoUpdate(0)
  24.  
  25. endpage = topage + 1
  26.  
  27. do n = 1 to numcopies
  28.     do i = from to topage
  29.         call ppm_CopyPage(i, endpage, 1)
  30.         endpage = endpage + 1
  31.     end
  32. end
  33.  
  34. exit_msg("Done")
  35.  
  36. exit_msg: procedure expose cpage
  37. do
  38.    parse arg message
  39.  
  40.     if message ~= '' then call ppm_Inform(1, message,)
  41.     call ppm_GotoPage(cpage)
  42.     call ppm_AutoUpdate(1)
  43.     exit
  44. end
  45.  
  46.